home *** CD-ROM | disk | FTP | other *** search
/ MacWorld Secrets (3rd Edition) / Macworld Bonus CD, 6:96.iso / Archive Data / AOL Installer.sea / AOL Installer / Install AOL v2.6 w_Browser / TCPack < prev    next >
Text File  |  1995-07-10  |  3KB  |  109 lines
  1. !*****************************************************************************
  2. !   C O P Y R I G H T   A N D   C O N F I D E N T I A L I T Y   N O T I C E
  3. !*****************************************************************************
  4. !
  5. !      Copyright © 1987-1994 America Online, Inc.  All rights reserved.
  6. !      This software contains valuable confidential and proprietary
  7. !      information of America Online, Inc. and is subject to applicable
  8. !      licensing agreements.  Unauthorized reproduction, transmission or
  9. !      distribution of this file and its contents is a violation of
  10. !      applicable laws.
  11. !
  12. !            A M E R I C A   O N L I N E   C O N F I D E N T I A L
  13. !
  14. !*****************************************************************************
  15.  
  16. !
  17. ! Connect Sequence:
  18. !
  19. -LABEL 0
  20. ! Turn off 'no carrier' detection, it doesn't apply for tcp.
  21. SetScan ""
  22. ! TTY_On { Turns off error checking, TCP is error free -- uncomment for more speed }
  23. CanBtn 19               { if cancel button - just exit }
  24. DsplyMsg "Initializing Connection."
  25. SetTries 0
  26. ChrDelay 2
  27. DsplyPic 1
  28. !
  29. !----------------------------------
  30. !
  31. -LABEL 1                { check for ctb }
  32. NoCTB "CTBNotPresent"
  33. !-----------------------------------                        
  34. -Label 2
  35. !
  36. -Label 3 
  37. !-----------------------------------
  38. -LABEL 4                { try to connect }
  39. DsplyMsg "Opening Connection"
  40. CTBTool "ToolErr" "ParamErr" 0 "TCPack for AOL"
  41. CTBParam "ParamErr" 0 "RemoteTCPPort 5190 TelnetProtocol false HighThroughput true"
  42. !
  43. CTBParam "ParamErr" 0 "RemoteAddress ""AmericaOnline.aol.com[0]"""
  44. CTBOPEN "SecondTry"
  45. Jump 12
  46. !
  47. -Label SecondTry
  48. CTBParam "ParamErr" 0 "RemoteAddress ""AmericaOnline.aol.com[1]"""
  49. CTBOPEN "ThirdTry"
  50. Jump 12
  51. !
  52. -Label ThirdTry
  53. CTBParam "ParamErr" 0 "RemoteAddress ""AmericaOnline.aol.com[2]"""
  54. CTBOPEN "FourthTry"
  55. Jump 12
  56. !
  57. -Label FourthTry
  58. CTBParam "ParamErr" 0 "RemoteAddress ""AmericaOnline.aol.com[3]"""
  59. CTBOPEN "CTBOpenFail"
  60. !-----------------------------------
  61. !
  62. -LABEL 12               { we're connected }
  63. DsplyPic 2
  64. SetSpeed 2            { this represents a tcp connection }
  65. !-------------------------------
  66. !
  67. -LABEL 15               { = for term ID}
  68. !                         Sending Terminal Identifier
  69. !
  70. !
  71. !-----------------------------------
  72. !
  73. -LABEL 16                { @ for Host num}
  74. !                         Sending America Online node number.
  75. -LABEL 17               { System Ready ... All is well }
  76. Exit 0
  77. !
  78. -Label ToolErr
  79. OneAlert 1 "This ccl requires TCPack for AOL!"
  80. Exit -111
  81. !
  82. -Label ParamErr
  83. OneAlert 1 "Can't find the AOL host nameserver.  Try again later."
  84. Jump "CTBOpenFail"
  85. !-----------------------------------
  86. !
  87. -Label 18               { User aborted sequence }
  88. Exit -111
  89. !
  90. -Label 19               { User aborted sequence...dont need to hang up though}
  91. Exit -111
  92. !
  93. !-----------------------------------
  94. -Label CTBNotPresent
  95. IfEq ~ATMP 1
  96. OneAlert 1 "The CommToolbox is not present.  You cannot connect with this CCL!."
  97. Exit -1
  98. -Label CTBOpenFail
  99. IfEq ~ATMP 1
  100. OneAlert 1 "Couldn't open the connection with the AOL host.  Please try again later."
  101. CTBClose
  102. Exit -1
  103. !------------------------------------
  104. !
  105. *-Label 0                {Hangup Sequence}
  106. *CTBClose
  107. *Exit 0
  108. ###
  109.